From: Glenn Morris <rgm@gnu.org>
Date: Fri, 27 May 2011 01:54:56 +0000 (-0400)
Subject: * lisp/shell.el (shell-directory-tracker): Case matters.  (Bug#8735)
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~3663
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=361ed86011661bd2a0ec98c3b32d22197201db88;p=emacs.git

* lisp/shell.el (shell-directory-tracker): Case matters.  (Bug#8735)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 10fef736ee6..d75138f55e5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-05-27  Glenn Morris  <rgm@gnu.org>
 
+	* shell.el (shell-directory-tracker): Case matters.  (Bug#8735)
+
 	* files.el (set-auto-mode):
 	Also respect mode: entries at the end of the file.  (Bug#8586)
 
diff --git a/lisp/shell.el b/lisp/shell.el
index 53455944ee6..e07f996823e 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -704,6 +704,7 @@ Environment variables are expanded, see function `substitute-in-file-name'."
 			       (concat "^" shell-command-separator-regexp)
 			       str) ; skip whitespace
 			      (match-end 0)))
+		(case-fold-search)
 		end cmd arg1)
 	    (while (string-match shell-command-regexp str start)
 	      (setq end (match-end 0)